%ex5

%a)

n = 2; %numero lancamentos
m = 6; %numero de faces
N = 100000; %numero experiencias

%Acontecimento A

lancamentos = randi(m,n,N); %cada coluna uma experiencia

sucessos=0;

for c = 1 :N
    if (lancamentos(1,c)+lancamentos(2,c)) == 9;
        sucessos=sucessos+1;
    end
end

probA= sucessos/N

%Acontecimento B

sucessos=0;

for c = 1 :N
    if rem(lancamentos(2,c),2)==0;
        sucessos=sucessos+1;
    end
end

probB= sucessos/N

%Acontecimento C

sucessos=0;

for c = 1 :N
    if lancamentos(1,c)==5 || lancamentos(2,c)==5;
        sucessos=sucessos+1;
    end
end

probC= sucessos/N

%Acontecimento D

sucessos=0;

for c = 1 :N
    if lancamentos(1,c)==1 || lancamentos(2,c)==1;
        sucessos=sucessos+1;
    end
end

probTemp= sucessos/N;
probD= 1-probTemp